|   File        : !Run
|   Date        : 15-May-01
|   Author      : © A.Thoukydides, 1996-2001, 2019
|   Description : The first part of the script used to start the ARMEdit
|                 application. This checks that the computer is running a
|                 sufficiently recent version of RISC OS, displays a pretty
|                 banner, and starts the second part of the script.
|
|   License     : ARMEdit is free software: you can redistribute it and/or
|                 modify it under the terms of the GNU General Public License
|                 as published by the Free Software Foundation, either
|                 version 3 of the License, or (at your option) any later
|                 version.
|
|                 ARMEdit is distributed in the hope that it will be useful,
|                 but WITHOUT ANY WARRANTY; without even the implied warranty
|                 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
|                 the GNU General Public License for more details.
|
|                 You should have received a copy of the GNU General Public
|                 License along with ARMEdit. If not, see
|                 <http://www.gnu.org/licenses/>.

| Set a system variable to the application directory
Set ARMEdit$Dir <Obey$Dir>

| Load the application sprites
If "<Boot$OSVersion>" < "400" Then IconSprites <ARMEdit$Dir>.!Sprites Else IconSprites <ARMEdit$Dir>.4Sprites

| Check that it is a sufficiently recent version of the operating system
RMEnsure UtilityModule 3.10 Error 0 This application is only suitable for use with RISC OS 3.10 or later versions.

| Check that there is likely to be sufficient memory for both programs
WimpSlot -min 148K -max 148K

| Start the next part of the program loading once the banner has initialised
Filer_Run <ARMEdit$Dir>.!Run2

| Ensure that there is sufficient memory for the banner program
WimpSlot -min 60K -max 60K

| Run the banner program, leaving window open for 5 seconds
Run <ARMEdit$Dir>.Resources.Banner 500 -sprites <ARMEdit$Dir>.Resources.Title
